home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Source / IBPalettes / WW3DKit / sphere.eve < prev    next >
Encoding:
Text File  |  1995-05-18  |  1.2 KB  |  35 lines
  1. set period 5
  2. set heightMax 5
  3. articulatedVariableChangesAs sphere(yTranslate) 0 10 \
  4.                              {expr {$heightMax * abs(sin(($period * $u * pi())))}}
  5. articulatedVariableChangesAs sphere(xTranslate) 0 10 \
  6.                              {expr {lerpUp($u, 0, 5)}}
  7. articulatedVariableChangesAs sphere(color) 2  8 \
  8.                              {spline $u 3 {1 1 1   1 1 1   1 0 0   0 0 1   0 1 0   0 1 0}}
  9.  
  10.  
  11. set sphere(color) {1.0 0.0 0.0}
  12. set sphere(radius) 1.0
  13. set sphere(thetaMax) 360.0
  14. set sphere(xScale) 1
  15. set sphere(yScale) 1
  16. set sphere(zScale) 1
  17. set sphere(xTranslate) 0
  18. set sphere(yTranslate) 0
  19. set sphere(zTranslate) 0
  20. set sphere(xRotate) 0
  21. set sphere(yRotate) 0
  22. set sphere(zRotate) 0
  23.  
  24. startShape aSphere
  25.   animatable: {set sphere(zMin) [expr {-1 * $sphere(radius)}]}
  26.   animatable: {set sphere(zMax) $sphere(radius)}
  27.   animatable: {Color $sphere(color)}
  28.   animatable: {Scale $sphere(xScale) $sphere(yScale) $sphere(zScale)}
  29.   animatable: {Translate $sphere(xTranslate) $sphere(yTranslate) $sphere(zTranslate)}
  30.   animatable: {Rotate $sphere(xRotate) 1 0 0 }
  31.   animatable: {Rotate $sphere(yRotate) 0 1 0 }
  32.   animatable: {Rotate $sphere(zRotate) 0 0 1 }
  33.   animatable: {Sphere $sphere(radius) $sphere(zMin) $sphere(zMax) $sphere(thetaMax)}
  34. endShape
  35.